home *** CD-ROM | disk | FTP | other *** search
/ Aminet 39 / Aminet 39 (2000)(Schatztruhe)[!][Oct 2000].iso / Aminet / biz / swood / FW_AllInOne.lha / Makros / TabSpalte < prev    next >
Text File  |  1998-01-18  |  5KB  |  180 lines
  1. /* Optimized with RexxOpt 1.7 */
  2.  
  3. Parse ARG FW
  4. if ~show('L',"rexxreqtools.library") then
  5. if ~addlib('rexxreqtools.library',0,-30,0) then;do
  6. ShowMessage 1 1 '"Fehler...." "Benötige Libs:rexxreqtools.library" " A B B R U C H ! !" "Okay" "" ""'
  7. exit
  8. end
  9. IF ~show('L','tritonrexx.library') then
  10. IF ~ADDLIB('tritonrexx.library',10,-30,0) THEN;DO
  11. ShowMessage 2 1 '"Fehler...." "Benötige Libs:tritonrexx.library" "" "Abbruch" "" ""'
  12. exit
  13. END
  14. R='0A'X
  15. SIGNAL ON SYNTAX
  16. If FW='' then;do
  17. Address='FinalW'
  18. Options results
  19. STATUS PORTNAME
  20. FW=result
  21. End
  22. address(FW)
  23. If open('Hilfe',"S:FW_Paket.prefs","R") then;do
  24. HilfeVerz=readln('Hilfe')
  25. Call Close('Hilfe')
  26. End
  27. else HilfeVerz=''
  28. apptags='TRCA_Name     SpaltenBreite',
  29. 'TRCA_LongName "Spaltenbreite ändern"',
  30. 'TRCA_Info     "für FinalWriter"',
  31. 'TRCA_Version  "1.0 registered"',
  32. 'TRCA_Release  "1"',
  33. 'TRCA_Date     "09.01.98"',
  34. 'TAG_END'
  35. windowtags=WindowID(1),
  36. WindowPosition('TRWP_CENTERDISPLAY'),
  37. WindowFlags('TRWF_NOMINTEXTWIDTH|TRWF_NOSIZEGADGET'),
  38. PubScreenName('FinalWriterPubScreen'),
  39. WindowTitle("Spaltenbreite"),
  40. BeginMenu('Projekt'),
  41. MenuItem('Q_Verlassen',104),
  42. BeginMenu('?'),
  43. MenuItem('?_Info',101),
  44. MenuItem('H_Hilfe',103),
  45. 'HorizGroupAC SpaceS',
  46. 'VertGroupAC SpaceS',
  47. 'SpaceS',
  48. 'HorizGroupEAC',
  49. TextID('_Spalte:',4),
  50. 'SpaceS',
  51. StringGadget("",4),
  52. CheckBox(5),
  53. 'EndGroup',
  54. 'SpaceS',
  55. 'HorizGroupEAC',
  56. TextID('B_reite:',3),
  57. 'SpaceS',
  58. StringGadget("",3),
  59. 'SpaceS',
  60. TextN('cm'),
  61. 'EndGroup',
  62. 'SpaceS',
  63. 'HorizSeparator',
  64. 'SpaceS',
  65. 'HorizgroupEC',
  66. Button('_Anwenden',1),
  67. 'SpaceS',
  68. Button('Ab_bruch',2),
  69. 'EndGroup SpaceS',
  70. 'EndGroup SpaceS',
  71. 'EndGroup SpaceS',
  72. 'EndProject'
  73. app=TR_CREATEAPP('TRCA_Name DBImport')
  74. IF app ~='00000000'x THEN;DO
  75. window1=TR_OPENPROJECT(app,windowtags)
  76. IF window1 ~='00000000'x THEN;DO
  77. ende=0
  78. DO WHILE ~ende
  79. CALL TR_WAIT(app,'')
  80. DO WHILE TR_HANDLEMSG(app,'event')
  81. IF event.trm_class='TRMS_CLOSEWINDOW' THEN ende=1
  82. IF event.trm_class='TRMS_NEWVALUE' THEN;DO
  83. SELECT
  84. WHEN event.trm_id=5 THEN Call Uebernahme
  85. OTHERWISE NOP
  86. END
  87. End
  88. IF event.trm_class='TRMS_ACTION' THEN;DO
  89. SELECT
  90. WHEN event.trm_id=1 THEN Call program
  91. WHEN event.trm_id=2 THEN ende=1
  92. WHEN event.trm_id=101 THEN Call rtezrequest("Aus dem Makro-Paket:"||R||R||"Spaltenbreite ändern V1.0 für FW"||R||"© 1998 Heiko Schröder","Danke für Ihre Registrierung.","Info","rt_pubscrname=FinalWriterPubScreen")
  93. WHEN event.trm_id=103 THEN address command "run Multiview PUBSCREEN=FinalWriterPubScreen "||d2c(34)||HilfeVerz||"Tabspalte.guide"||d2c(34)
  94. WHEN event.trm_id=104 THEN ende=1
  95. OTHERWISE NOP
  96. END
  97. END
  98. END
  99. END
  100. CALL TR_CLOSEPROJECT(window1)
  101. END
  102. CALL TR_DELETEAPP(app)
  103. END
  104. ELSE
  105. CALL quit('Kann das Fenster nicht öffnen',10)
  106. Exit
  107. program:
  108. FirstObject Selected
  109. ID=result
  110. If ID=0 then;do
  111. 'ShowMessage 1 0 "Bitte vorher die entsprechende Tabelle auswählen..." "" ""      "Okay" "" ""'
  112. Return
  113. End
  114. GetObjectType ID
  115. If result~=11 then;do
  116. 'ShowMessage 1 0 "Dieses Makro bezieht sich nur auf Tabellen." "" ""      "Okay" "" ""'
  117. Return
  118. End
  119. GetTablePrefs COLUMNS
  120. SpaltenAnzahl=result
  121. Spalte=TR_GETATTRIBUTE(window1,4,'TROB_String')
  122. Select
  123. When (Spalte>SpaltenAnzahl|Spalte<1) then;do
  124. ShowMessage 1 1 '"Falsche Eingabe:" "Spalte: 'Spalte' gibt es nicht!" "" "Okay" "" ""'
  125. Call TR_SendMessage(window1,4,'TROM_ACTIVATE',0)
  126. Return
  127. End
  128. Otherwise NOP
  129. End
  130. Breite=TR_GETATTRIBUTE(window1,3,'TROB_String')
  131. Select
  132. When Datatype(Breite,'N')=0 then;do
  133. ShowMessage 1 1 '"Bitte numerische Angabe mit (.)" "" ""          "Okay" "" ""'
  134. Call TR_SendMessage(window1,3,'TROM_ACTIVATE',0)
  135. Return
  136. end
  137. When Breite<0.64 then;do
  138. ShowMessage 1 1 '"Zu niedrige Breite!" "Sie muß laut FinalWriter mindestens 0.64cm betragen." ""         "Okay" "" ""'
  139. Call TR_SendMessage(window1,3,'TROM_ACTIVATE',0)
  140. Return
  141. End
  142. Otherwise NOP
  143. End
  144. GetDocItemPrefs Decimal
  145. Punkt=Result
  146. If Punkt="Comma" then DocItemPrefs Decimal Period
  147. say spalte
  148. TableSetColumnWidth Spalte Breite
  149. Redraw
  150. If Punkt="Comma" then DocItemPrefs Decimal Comma
  151. Return
  152. Uebernahme:
  153. TableGetActiveCell
  154. If Words(result)=2 then;do
  155. Spalte=word(result,2)
  156. TableGetColumnWidth Spalte
  157. Breite=result
  158. Call TR_SETATTRIBUTE(window1,4,'TROB_STRING',Spalte)
  159. Call TR_SETATTRIBUTE(window1,3,'TROB_STRING',Breite)
  160. End
  161. Call TR_SETATTRIBUTE(window1,5,'TRAT_VALUE',0)
  162. Return
  163. SYNTAX:
  164. CALL quit('Fehler' rc 'in Zeile' sigl '-' ERRORTEXT(rc)||R||SOURCELINE(sigl)||R||'Bitte informieren Sie den Autor...',20)
  165. quit:
  166. PARSE ARG message,rcode
  167. IF app ~='00000000'x THEN;DO
  168. IF message ~='' THEN
  169. ret=rtezrequest(message,"_Okay","ACHTUNG!","rt_pubscrname=FinalWriterPubScreen")
  170. CALL TR_DELETEAPP(app)
  171. END
  172. ELSE
  173. IF message ~='' THEN;DO
  174. SAY message
  175. SAY
  176. OPTIONS PROMPT 'Bitte <RETURN> drücken'
  177. PULL taste
  178. END
  179. address command "flushtrx all"
  180. EXIT(rcode)